home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / workbench+shell / a-f / dalastalert3 / install-script < prev    next >
Text File  |  1978-06-29  |  3KB  |  177 lines
  1. ; Install script for LastAlert3
  2. ;
  3. ; Note: What a mess !!!
  4. ;
  5.  
  6. (set @default-dest (cat ""))
  7. (set #bad-kick (cat "You must be using Kickstart 2.0 or higher to use LastAlert3."))
  8.  
  9. ;=============================================================================
  10.  
  11. ; make sure we are running under a 2.0 ROM
  12.  
  13. (if (< (/ (getversion) 65536) 37)
  14. (
  15.     (abort #bad-kick)
  16. ))
  17.  
  18. ;=============================================================================
  19.  
  20.  
  21. (set #path-alerts ("S/DaLastAlert3.alerts"))
  22.  
  23.     (set #path-check ("68000/DaLastAlert3-Check"))
  24.     (set #path ("68000/DaLastAlert3"))
  25.     (set #cpu "68000")
  26.  
  27. (complete 0)
  28.  
  29. ;=============================================================================
  30.  
  31.  
  32. (set name-check
  33.     (askfile
  34.         (prompt "OK, where to install LastAlert3-Check ??")
  35.         (help @askfile-help)
  36.         (default "SYS:WbStartup/")
  37.     )
  38. )
  39.  
  40. (copyfiles
  41. (
  42.     (prompt "Copying DaLastAlert3...")
  43.     (help @copyfiles-help)
  44.     (source "")
  45.     (choices #path-check)
  46.     (dest name-check)
  47. ))
  48.  
  49. (complete 25)
  50.  
  51. ;=============================================================================
  52.  
  53. (set name
  54.     (askfile
  55.         (prompt "OK, where to install LastAlert3 ??")
  56.         (help @askfile-help)
  57.         (default "SYS:Utilities/")
  58.     )
  59. )
  60.  
  61. (copyfiles
  62. (
  63.     (prompt "Copying DaLastAlert3...")
  64.     (help @copyfiles-help)
  65.     (source "")
  66.     (choices #path)
  67.     (dest name)
  68. ))
  69.  
  70. (complete 50)
  71.  
  72. ;=============================================================================
  73.  
  74. (set name-alerts
  75.     (askfile
  76.         (prompt "OK, where to install LastAlert3.alerts ??")
  77.         (help @askfile-help)
  78.         (default "S:")
  79.     )
  80. )
  81.  
  82. (copyfiles
  83. (
  84.     (prompt "Copying DaLastAlert3.alerts ...")
  85.     (help @copyfiles-help)
  86.     (source "")
  87.     (choices #path-alerts)
  88.     (dest name-alerts)
  89. ))
  90.  
  91. (complete 75)
  92.  
  93. ;=============================================================================
  94.  
  95. (set icon
  96.     (askchoice
  97.         (prompt "What icon do you want ??")
  98.         (help @askoptions-help)
  99.         (choices "Magic Workbench Icon" "NewIcons")
  100.         (default 1)
  101.     )
  102. )
  103.  
  104. (if (= icon 1)
  105.     (
  106.      (copyfiles
  107.         (
  108.         (prompt "Copying DaLastAlert3-Check.info...")
  109.         (help @copyfiles-help)
  110.         (source "")
  111.         (choices "68000/DaLastAlert3-Check.info")
  112.         (dest name-check)
  113.         )
  114.      )
  115.      (copyfiles
  116.         (
  117.         (prompt "Copying DaLastAlert3.info...")
  118.         (help @copyfiles-help)
  119.         (source "")
  120.         (choices "68000/DaLastAlert3.info")
  121.            (dest name)
  122.         )
  123.      )
  124.     )
  125.     (
  126.      (copyfiles
  127.         (
  128.         (prompt "Copying LastAlert3-Check.info...")
  129.         (help @copyfiles-help)
  130.         (source "")
  131.         (choices "MWBIcons/DaLastAlert3-Check.info")
  132.         (dest name-check)
  133.         )
  134.      )
  135.      (copyfiles
  136.         (
  137.         (prompt "Copying LastAlert3.info...")
  138.         (help @copyfiles-help)
  139.         (source "")
  140.         (choices "MWBIcons/DaLastAlert3.info")
  141.            (dest name)
  142.         )
  143.      )
  144.     )
  145. )
  146.  
  147. (complete 90)
  148.  
  149. ;=============================================================================
  150.  
  151. (set #newname-check (cat name-check "DaLastAlert3-check"))
  152. (set #newname-alerts (cat (expandpath name-alerts)"/DaLastAlert3.alerts"))
  153. (set #newname (cat name "DaLastAlert3"))
  154.  
  155. (tooltype 
  156.     (dest #newname-check)
  157.     (settooltype "EXEC" #newname)
  158.     (setstack 4096)
  159.     (noposition)
  160. )
  161.  
  162. (tooltype 
  163.     (dest #newname)
  164.     (setstack 4096)
  165.     (noposition)
  166. )
  167.  
  168. (complete 96)
  169.  
  170. (set #string3 (cat "setenv " "DaLastAlert3 " #newname-alerts))
  171. (set #string4 (cat "copy env:DaLastAlert3 envarc:"))
  172.  
  173. (run #string3)
  174. (run #string4)
  175.  
  176. (complete 100)
  177.